Cleared Events by Daniel Stelzer

Jump to extension code
Copy Include Cleared Events by Daniel Stelzer to clipboard Include Cleared Events by Daniel Stelzer.
This is a very simple extension, adding only a single phrase.
(timed event) never.
This turns off a timed event, preventing it from firing (until it's set again). For example:
Instead of pressing the red button:
 say "Tick...tick...tick...";
 the bomb explodes in five turns from now.
Instead of pressing the green button:
 say "The ticking ceases.";
 the bomb explodes never.
The green button now disarms the bomb, but pressing the red button again will re-start the timer at five minutes.
Cleared Events by Daniel Stelzer begins here.
Include (-
 [ ClearTimedEvent rule i b;
    for (i=1: i<=(TimedEventsTable-->0): i++) {
      if (rule == TimedEventsTable-->i) { b=i; break; }
      if (TimedEventsTable-->i == 0) rtrue; ! We went through the whole table and didn't find this event.
    }
    TimedEventsTable-->b = 0;
 ];
 -).
To (R - rule) never:
    (- ClearTimedEvent({-mark-event-used:R}); -).
Cleared Events ends here.